Public Class MultiHistorial

    Public Shared Function LevantarGruposCerrados() As DataTable
        Dim dt As New capaAccesoBD.CrystalGradesDataSet.sp_LevantarGruposCerradosDataTable

        Dim ta As New capaAccesoBD.CrystalGradesDataSetTableAdapters.sp_LevantarGruposCerradosTableAdapter
        ta.Fill(dt)
        Return dt
    End Function

End Class
